{                                                                              }
{                                     QUAGDES                                  }
{                          QUAGI ANTENNA DESIGN PROGRAM                        }
{                                    Version 1                                 }
{                                                                              }
{ The design used to extract the quagi design parameters was taken from Table  }
{ 11 on page 18-31 of the 1988 edition of the ARRL Antenna Book. The design    }
{ details are as follows:                                                      }
{                                                                              }
{ Design Frequency (MHz): 432.000                                              }
{                                                                              }
{ Boom Material: Non-conductive                                                }
{                                                                              }
{                            Element Diameters (inches)                        }
{                                                                              }
{ Reflector and Driven Element     0.8083                                      }
{ Directors                        0.1250                                      }
{                                                                              }
{                             Element Lengths (inches)                         }
{                                                                              }
{ Reflector         28.0000                                                    }
{ Diven Element     26.6250                                                    }
{ Director 1        11.7500                                                    }
{ Director 2        11.6875                                                    }
{ Director 3        11.6250                                                    }
{ Director 4        11.5625                                                    }
{ Director 5        11.5000                                                    }
{ Director 6        11.4375                                                    }
{                                                                              }
{                        Spacing Between Elements (inches)                     }
{                                                                              }
{ Reflector to Driven Element       7.0000                                     }
{ Driven Element to Director 1      5.2500                                     }
{ Director 1 to Director 2         11.0000                                     }
{ Director 2 to Director 3          5.8500                                     }
{ Director 3 to Director 4          8.7300                                     }
{ Director 4 to Director 5          8.7300                                     }
{ Director 5 to Director 6          8.7300                                     }
{                                                                              }
{ The program computes the element lengths and spacing as decimal values of a  }
{ free space wavelength at the design frequency. The formula used to compute   }
{ the length of a free space wavelength is                                     }
{                                                                              }
{                                             11803.2000                       }
{                          Length (inches) =  ----------                       }
{                                             Freq. (MHz)                      }
{                                                                              }
{ Using a free space wavelength of 27.3222 inches at 432.000 MHz and the above }
{ design, the antenna design parameters are as follows:                        }
{                                                                              }
{                         Element Diameters (wavelengths)                      }
{                                                                              }
{ Reflector and Driven Element     0.00296                                     }
{ Directors                        0.00458                                     }
{                                                                              }
{                          Element Lengths (wavelengths)                       }
{                                                                              }
{ Reflector         1.0248                                                     }
{ Diven Element     0.9745                                                     }
{ Director 1        0.4301                                                     }
{ Director 2        0.4278                                                     }
{ Director 3        0.4255                                                     }
{ Director 4        0.4232                                                     }
{ Director 5        0.4210                                                     }
{ Director 6        0.4186                                                     }
{                                                                              }
{                     Spacing Between Elements (wavelengths)                   }
{                                                                              }
{ Reflector to Driven Element      0.2562                                      }
{ Driven Element to Director 1     0.1922                                      }
{ Director 1 to Director 2         0.4026                                      }
{ Director 2 to Director 3         0.2141                                      }
{ Director 3 to Director 4         0.3195                                      }
{ Director 4 to Director 5         0.3195                                      }
{ Director 5 to Director 6         0.3195                                      }
{                                                                              }
{                                                                              }
{                                                                              }
{                                                                              }
 PROGRAM quagdes1;

 USES
   Printer;

 VAR
   FREQ       : real; {Antenna Design Frequency, in MHz}
   LAMBDA     : real; {Wavelength}

   DIA_REF_DE : real; {Diameter of Reflector and Driven Element}
   DIA_DIR    : real; {Diameter of Directors}

   REF        : real; {Length of Reflector}
   DE         : real; {Length of Driven Element}
   DIR1       : real; {Length of Director 1}
   DIR2       : real; {Length of Director 2}
   DIR3       : real; {Length of Director 3}
   DIR4       : real; {Length of Director 4}
   DIR5       : real; {Length of Director 5}
   DIR6       : real; {Length of Director 6}

   REF_DE  : real; {Reflector-Driven Element Spacing}
   DE_DIR1 : real; {Driven Element-Director 1 Spacing}
   DIR1_2  : real; {Director 1-Director 2 Spacing}
   DIR2_3  : real; {Director 2 - Director 3 Spacing}
   DIR3_4  : real; {Director 3 - Director 4 Spacing}

BEGIN
  writeln;
  writeln ('':36, 'QUAGDES');
  writeln ('':26, 'QUAGI ANTENNA DESIGN PROGRAM');
  writeln ('':35, 'Version 1');
  writeln;
  writeln;

  writeln ('Turn Printer On');
  writeln;
  write ('Enter the Design Frequency (MHz): ');
  readln (FREQ);
  writeln;
  writeln ('Press <Return> to Exit');

  LAMBDA := 11803.2000/FREQ;

  DIA_REF_DE := LAMBDA * 0.00296;
  DIA_DIR    := LAMBDA * 0.00458;

  REF  := LAMBDA * 1.0248;
  DE   := LAMBDA * 0.9745;
  DIR1 := LAMBDA * 0.4301;
  DIR2 := LAMBDA * 0.4278;
  DIR3 := LAMBDA * 0.4255;
  DIR4 := LAMBDA * 0.4232;
  DIR5 := LAMBDA * 0.4210;
  DIR6 := LAMBDA * 0.4186;

  REF_DE  := LAMBDA * 0.2562;
  DE_DIR1 := LAMBDA * 0.1922;
  DIR1_2  := LAMBDA * 0.4026;
  DIR2_3  := LAMBDA * 0.2141;
  DIR3_4  := LAMBDA * 0.3195;

  writeln (lst);
  writeln (lst, '':38, 'QUAGDES');
  writeln (lst, '':28, 'QUAGI ANTENNA DESIGN PROGRAM');
  writeln (lst, '':37, 'Version 1');
  writeln (lst);
  writeln (lst);
  writeln (lst, 'Antenna Design Frequency (MHz): ', FREQ:9:4);
  writeln (lst);

  writeln (lst, '':33, 'Element Diameters');
  writeln (lst, '':36, 'In', '':13, 'mm');
  write (lst, 'Reflector, Driven Element:', '':7, DIA_REF_DE:7:3);
  writeln (lst, '':10, DIA_REF_DE * 25.4:7:3);
  writeln (lst, 'Director:', '':24, DIA_DIR:7:3, '':10, DIA_DIR * 25.4:7:3);
  writeln (lst);

  writeln (lst, '':34, 'Element Lengths');
  writeln (lst, '':36, 'In', '':13, 'mm');
  writeln (lst, 'Reflector:', '':23, REF:7:3, '':10, REF * 25.4:7:3);
  writeln (lst, 'Driven Element:', '':18, DE:7:3, '':10, DE * 25.4:7:3);
  writeln (lst, 'Director 1:', '':22, DIR1:7:3, '':10, DIR1 * 25.4:7:3);
  writeln (lst, 'Director 2:', '':22, DIR2:7:3, '':10, DIR2 * 25.4:7:3);
  writeln (lst, 'Director 3:', '':22, DIR3:7:3, '':10, DIR3 * 25.4:7:3);
  writeln (lst, 'Director 4:', '':22, DIR4:7:3, '':10, DIR4 * 25.4:7:3);
  writeln (lst, 'Director 5:', '':22, DIR5:7:3, '':10, DIR5 * 25.4:7:3);
  writeln (lst, 'Director 6:', '':22, DIR6:7:3, '':10, DIR6 * 25.4:7:3);
  writeln (lst);

  writeln (lst, '':34, 'Element Spacing');
  writeln (lst, '':36, 'In', '':13, 'mm');
  write (lst, 'Reflector - Driven Element:', '':6, REF_DE:7:3);
  writeln (lst, '':10, REF_DE * 25.4:7:3);
  write (lst, 'Driven Element - Director 1:', '':5, DE_DIR1:7:3);
  writeln (lst, '':10, DE_DIR1 * 25.4:7:3);
  write (lst, 'Director 1 - Director 2:', '':9, DIR1_2:7:3);
  writeln (lst, '':10, DIR1_2 * 25.4:7:3);
  write (lst, 'Director 2 - Director 3:', '':9, DIR2_3:7:3);
  writeln (lst, '':10, DIR2_3 * 25.4:7:3);
  write (lst, 'Director 3 - Director 4:', '':9, DIR3_4:7:3);
  writeln (lst, '':10, DIR3_4 * 25.4:7:3);
  write (lst, 'Director 4 - Director 5:', '':9, DIR3_4:7:3);
  writeln (lst, '':10, DIR3_4 * 25.4:7:3);
  write (lst, 'Director 5 - Director 6:', '':9, DIR3_4:7:3);
  writeln (lst, '':10, DIR3_4 * 25.4:7:3);
  readln;

END.






